(select-frame-set-input-focus): Call x-focus-frame also

when window-system is mac.

diff --git a/lisp/frame.el b/lisp/frame.el
index 5e6451dccacf29bc6a6d270d5d287dcd934f4294..8437475dfd608ffe40cf005f05ab73e6bbcae7b0 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -695,7 +695,7 @@ automatically."
     (select-frame frame)
     (raise-frame frame)
     ;; Ensure, if possible, that frame gets input focus.
-    (cond ((eq window-system 'x)
+    (cond ((memq window-system '(x mac))
           (x-focus-frame frame))
          ((eq window-system 'w32)
           (w32-focus-frame frame)))